#!/usr/bin/perl
$file = "C:\\DOCUME~1\\Administrator\\workspace\\smsindex\\data\\telecomSMSmap";
$outfile ="C:\\DOCUME~1\\Administrator\\workspace\\smsindex\\data\\SMSmap4Telecom";
open(file,$file);
open(out,">$outfile");

while(<file>){
	@map = split("#",$_);
	print out $map[1];
}